home *** CD-ROM | disk | FTP | other *** search
Wrap
Text File | 1995-10-19 | 60.0 KB | 759 lines | [ TEXT/hscd]
x ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ ╒═══════════════════════════════════╕ │ PURCHASE ORDER │▒ ╘═══════════════════════════════════╛▒ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ┌────────────[issued by]─────────────┐ ┌────────────[important]─────────────┐ │~PAD(M_name,35)~ │ │Our purchase order number must │ │~PAD(M_adr1,35)~ │ │appear on all invoices, cases, │ │~PAD(M_adr2,35)~ │ │packing lists and correspondence. │ │~PAD(M_adr3,35)~ │ │ │ ├────[contact]──────┬──[telephone]───┤ ├──[order no.]────┬──[issue date]────┤ │~po->contact~ │ ~PAD(M_phone,14)~ │ │ ~padl(ltrim(str(po->(RECNO()))),7,"0")~ │ ~pad(dtoc(po->issued),10)~ │ └───────────────────┴────────────────┘ ├[customer no.]───┼[cust. acct. no.]─┤ ┌─ [issued to] ─┐ │~supplier->cust_no~│~supplier->acct_no~│ │~pad(aSup1,35)~ │ └─────────────────┴──────────────────┘ ~pad(aSup2,35)~ ~aSup3~ │~pad(aSup4,35)~ │ └─ ─┘ ┌[weight]─────┬[required]─┬[f.o.b. ]───────────────────────────────────────┐ │~po->weight~│~pad(dtoc(po->required),10)~ │~fob->fob_terms~ │ ├[TERMS ]────┼[ ]┼[supply cd]┼[ship via]────────────────────────────┤ │~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~ │ │~po->supply_cd~ │~po->ship_via~ │ └─────────────┴───────────┴───────────┴──────────────────────────────────────┘ Please supply the articles and/or services listed below. comments-> ~po->comments~ ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐ │item│item no./description│ qty │unit│ price │ extended │ └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘ ~po2->item~ ~inv->part_no~~po2->qty~ ~inv->unit~ ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~ ~-~ ~trim(inv->manufact)~ ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ ì ┌───[sub-total]───┐ │ ì ~str(subtotal,15,2)~│ ì └─────────────────┘ ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [order no.-> ~po-> (recno())~] (continuation) ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐ │item│item no./description│ qty │unit│ price │ extended │ └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘ taxable ~po->taxable~ non-taxable ~po->non_taxabl~ ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax "+str(po->tax1,13,2))~ ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax "+str(po->tax2,13,2))~ shipping ~po->freight~ ┌───────[signature]──────────┬───[date]────┬───────────────┬[total est. cost]┐ │ │ │ │ ~po->total~│ └────────────────────────────┴─────────────┴───────────────┴─────────────────┘ ~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~ ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ +===================================+ | PURCHASE ORDER | +===================================+ +------------[issued by]-------------+ +------------[important]-------------+ |~PAD(M_name,35)~ | |Our purchase order number must | |~PAD(M_adr1,35)~ | |appear on all invoices, cases, | |~PAD(M_adr2,35)~ | |packing lists and correspondence. | |~PAD(M_adr3,35)~ | | | +----[contact]------+--[telephone]---+ +--[order no.]----+--[issue date]----+ |~po->contact~ | ~PAD(M_phone,14)~ | | ~padl(ltrim(str(po->(RECNO()))),7,"0")~ | ~pad(dtoc(po->issued),10)~ | +-------------------+----------------+ +[customer no.]---+[cust. acct. no.]-+ +- [issued to] -+ |~supplier->cust_no~|~supplier->acct_no~| |~pad(aSup1,35)~ | +-----------------+------------------+ ~pad(aSup2,35)~ ~aSup3~ |~pad(aSup4,35)~ | +- -+ +[weight]-----+[required]-+[f.o.b. ]---------------------------------------+ |~po->weight~|~pad(dtoc(po->required),10)~ |~fob->fob_terms~ | +[TERMS ]----+[ ]+[supply cd]+[ship via]----------------------------+ |~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~ | |~po->supply_cd~ |~po->ship_via~ | +-------------+-----------+-----------+--------------------------------------+ Please supply the articles and/or services listed below. comments-> ~po->comments~ +----+--------------------+-------------+----+---------------+---------------+ |item|item no./description| qty |unit| price | extended | +----+--------------------+-------------+----+---------------+---------------+ ~po2->item~ ~inv->part_no~~po2->qty~ ~inv->unit~ ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~ ~-~ ~trim(inv->manufact)~ ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ ì +---[sub-total]---+ | ì ~str(subtotal,15,2)~| ì +-----------------+ ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [order no.-> ~po-> (recno())~] (continuation) +----+--------------------+-------------+----+---------------+---------------+ |item|item no./description| qty |unit| price | extended | +----+--------------------+-------------+----+---------------+---------------+ taxable ~po->taxable~ non-taxable ~po->non_taxabl~ ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax "+str(po->tax1,13,2))~ ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax "+str(po->tax2,13,2))~ shipping ~po->freight~ +-------[signature]----------+---[date]----+---------------+[total est. cost]+ | | | | ~po->total~| +----------------------------+-------------+---------------+-----------------+ ~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ I N V O I C E ╒═════════════════════════════════════════════════╕ │~padc(upper(m_name),48)~ │ ╘═════════════════════════════════════════════════╛ ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~ ~padc(M_phone,48)~ ┌────────────[sold to]───────────────┐ ┌────────────[ship to]───────────────┐ │~PAD(customer->name,35)~ │ │~PAD(aShip2[1],35)~ │ │~PAD(customer->company,35)~ │ │~PAD(aShip2[2],35)~ │ │~PAD(customer->address,35)~ │ │~PAD(aShip2[3],35)~ │ │~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~ │ │~PAD(aShip2[4],35)~ │ ├──[customer id]────┬──[telephone]───┤ ├──[ ]────┬──[ ]────┤ │ ~padl(pos->cust_id,9,"0")~ │~customer->home_phone~ │ │ │ │ └───────────────────┴────────────────┘ └─────────────────┴──────────────────┘ ┌[INVOICE]──┬[date]─────┬[trx type]┬[sales rep]──────────────────────────────┐ │ ~pos->(recno())~ │~pad(dtoc(pos->date),10)~ │~pos->trx_type~ │~pos->sales_rep~ ~sale_rep->name~ │ ├[ship date]┼[weight]───┼[ship via]┴─────┬─────[terms]───────────────────────┤ │~pad(dtoc(pos->ship_date),10)~ │~pos->weight~ │~pos->ship_via~│~Pad(posterms(),35)~│ ├[cust PO]──┴───────────┼[f.o.b.]────────┴───────────────────────────────────┤ │~pos->cust_po_no~ │~fob->fob_terms~ │ └───────────────────────┴────────────────────────────────────────────────────┘ ┌────┬─────────────────────┬──────────────┬────┬─────────────┬───────────────┐ │item│item no./description │quantity │unit│unit cost │extended │ └────┴─────────────────────┴──────────────┴────┴─────────────┴───────────────┘ ~pos_item->item~ ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~ ~-~ ~trim(inv->manufact)~ ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ * * * continued on page ~str(page+1,4)~ * * * ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [invoice no.-> ~pos-> (recno())~] (continuation) ┌────┬─────────────────────┬──────────────┬────┬─────────────┬───────────────┐ │item│item no./description │quantity │unit│unit cost │extended │ └────┴─────────────────────┴──────────────┴────┴─────────────┴───────────────┘ ┌[payment]─────────────────────────────────┬[charges]──────┬──────ì ───────────┐ │~pad(aPaid[1],42)~│ taxable│ ~pos->taxable~│ │~pad(aPaid[2],42)~│ non-taxable│ ~pos->non_taxabl~│ │~pad(aPaid[3],42)~│ ì ~if(empty(pos->tax1_rate),space(12)+"│"+space(17),"("+str(pos->taxì 1_rate,5,2)+"%) tax│ "+str(tax1(),14,2))~│ │~pad(aPaid[4],42)~│ ì ~if(empty(pos->tax2_rate),space(12)+"│"+space(17),"("+str(pos->taxì 2_rate,5,2)+"%) tax│ "+str(tax2(),14,2))~│ │~pad(aPaid[5],42)~│ shipping│ ~pos->freight~│ │~pad(aPaid[6],42)~│ T O T A L│ ~str(postotal(),15,2)~│ ├[amount tendered]─┬[change due]───────────┼[PAYMENT DUE]──┼[B A ì L A N C E]──┤ │~str(amt_tender(),15,2)~ │~str(change(),11,2)~ ì │~pad(if(empty(balance()),"N/A",pos->net_due),10)~ │ ì ~str(balance(),15,2)~│ └──────────────────┴───────────────────────┴───────────────┴──────ì ───────────┘ ~if(empty(balance()),"","Please pay from this Invoice: No ì statement will be issued.")~ ~if(!empty(pos->savings)," Y O U R S A V I N G S -> ì $"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1ì ()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","ì ")," T H A N K Y O U F O R Y O U R O R D E R !")~ ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ I N V O I C E +=================================================+ |~padc(upper(m_name),48)~ | +=================================================+ ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~ ~padc(M_phone,48)~ +------------[sold to]---------------+ +------------[ship to]---------------+ |~PAD(customer->name,35)~ | |~PAD(aShip2[1],35)~ | |~PAD(customer->company,35)~ | |~PAD(aShip2[2],35)~ | |~PAD(customer->address,35)~ | |~PAD(aShip2[3],35)~ | |~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~ | |~PAD(aShip2[4],35)~ | +--[customer id]----+--[telephone]---+ +--[ ]----+--[ ]----+ | ~padl(pos->cust_id,9,"0")~ |~customer->home_phone~ | | | | +-------------------+----------------+ +-----------------+------------------+ +[INVOICE]--+[date]-----+[trx type]+[sales rep]------------------------------+ | ~pos->(recno())~ |~pad(dtoc(pos->date),10)~ |~pos->trx_type~ |~pos->sales_rep~ ~sale_rep->name~ | +[ship date]+[weight]---+[ship via]+-----+-----[terms]-----------------------+ |~pad(dtoc(pos->ship_date),10)~ |~pos->weight~ |~pos->ship_via~|~Pad(posterms(),35)~| +[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+ |~pos->cust_po_no~ |~fob->fob_terms~ | +-----------------------+----------------------------------------------------+ +----+---------------------+--------------+----+-------------+---------------+ |item|item no./description |quantity |unit|unit cost |extended | +----+---------------------+--------------+----+-------------+---------------+ ~pos_item->item~ ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~ ~-~ ~trim(inv->manufact)~ ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ * * * continued on page ~str(page+1,4)~ * * * ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [invoice no.-> ~pos-> (recno())~] (continuation) +----+---------------------+--------------+----+-------------+---------------+ |item|item no./description |quantity |unit|unit cost |extended | +----+---------------------+--------------+----+-------------+---------------+ +[payment]---------------------------------+[charges]------+------ì -----------+ |~pad(aPaid[1],42)~| taxable| ~pos->taxable~| |~pad(aPaid[2],42)~| non-taxable| ~pos->non_taxabl~| |~pad(aPaid[3],42)~| ì ~if(empty(pos->tax1_rate),space(12)+"|"+space(17),"("+str(pos->taxì 1_rate,5,2)+"%) tax| "+str(tax1(),14,2))~| |~pad(aPaid[4],42)~| ì ~if(empty(pos->tax2_rate),space(12)+"|"+space(17),"("+str(pos->taxì 2_rate,5,2)+"%) tax| "+str(tax2(),14,2))~| |~pad(aPaid[5],42)~| shipping| ~pos->freight~| |~pad(aPaid[6],42)~| T O T A L| ~str(postotal(),15,2)~| +[amount tendered]-+[change due]-----------+[PAYMENT DUE]--+[B A ì L A N C E]--+ |~str(amt_tender(),15,2)~ |~str(change(),11,2)~ ì |~pad(if(empty(balance()),"N/A",pos->net_due),10)~ | ì ~str(balance(),15,2)~| +------------------+-----------------------+---------------+------ì -----------+ ~if(empty(balance()),"","Please pay from this Invoice: No ì statement will be issued.")~ ~if(!empty(pos->savings)," Y O U R S A V I N G S -> ì $"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1ì ()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","ì ")," T H A N K Y O U F O R Y O U R O R D E R !")~~printcode("INIT")~~printcode("landscape")~~PRINTCODE("LINES6")~~PRINTCODE("PITCH10")~ ~aShip2[1]~ ~aship2[2]~ ~aship2[3]~ ~aship2[4]~ ~printcode("init")~~printcode("landscape")~~printcode("lines6")~~printcode("pitch10")~ ~-~~customer->name~ ~-~~customer->company~ ~-~~customer->address~ ~-~~trim(customer->city)+", "+customer->state+" "+customer->zip~ ~-~~upper(customer->country)~ ~printcode("portrait")~ ~Printcode("INIT")~~printcode("pitch10")~~printcode("lines6")~ Q U O T E ╒═════════════════════════════════════════════════╕ │~padc(upper(m_name),48)~ │ ╘═════════════════════════════════════════════════╛ ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~ ~padc(M_phone,48)~ ┌────────────[sold to]───────────────┐ ┌────────────[ship to]───────────────┐ │~PAD(customer->name,35)~ │ │~PAD(aShip2[1],35)~ │ │~PAD(customer->company,35)~ │ │~PAD(aShip2[2],35)~ │ │~PAD(customer->address,35)~ │ │~PAD(aShip2[3],35)~ │ │~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~ │ │~PAD(aShip2[4],35)~ │ ├──[customer id]────┬──[telephone]───┤ ├──[ ]────┬──[ ]────┤ │ ~padl(quote->cust_id,9,"0")~ │~customer->home_phone~ │ │ │ │ └───────────────────┴────────────────┘ └─────────────────┴──────────────────┘ ┌[QUOTE #]──┬[date]─────┬[ ]┬[sales rep]──────────────────────────────┐ │ ~Quote->(recno())~ │~pad(dtoc(Quote->date),10)~ │ │~quote->sales_rep~ ~sale_rep->name~ │ ├[ ]┼[weight]───┼[ship via]┴─────┬─────[terms]───────────────────────┤ │ │~quote->weight~ │~quote->ship_via~│~Pad(qterms(),35)~│ ├[cust PO]──┴───────────┼[f.o.b.]────────┴───────────────────────────────────┤ │~quote->cust_po_no~ │~fob->fob_terms~ │ └───────────────────────┴────────────────────────────────────────────────────┘ ┌─────────────────────┬────────────────┬────┬───────────────┬────────────────┐ │item no./description │quantity │unit│price │extended │ └─────────────────────┴────────────────┴────┴───────────────┴────────────────┘ ~inv->part_no~ ~quote2->order_qty~ ~inv->unit~ ~quote2->price~ ~str(quote2->order_qty*quote2->price,16,2)~ ~-~ ~trim(inv->manufact)~ ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ * * * continued on page ~str(page+1,4)~ * * * ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [QUOTE no.-> ~quote-> (recno())~] (continuation) ┌─────────────────────┬────────────────┬────┬───────────────┬────────────────┐ │item no./description │quantity │unit│price │extended │ └─────────────────────┴────────────────┴────┴───────────────┴────────────────┘ ┌[ ì ]─────────────────────────────────┬[charges]──────┬───────────────ì ──┐ │ │ taxable│ ì ~quote->taxable~│ │ │ non-taxable│ ì ~quote->non_taxabl~│ │ │ ì ~if(empty(quote->tax1_rate),space(12)+"│"+space(17),"("+str(quote-ì >tax1_rate,5,2)+"%) tax│ "+str(qtax1(),14,2))~│ │ │ ì ~if(empty(quote->tax2_rate),space(12)+"│"+space(17),"("+str(quote-ì >tax2_rate,5,2)+"%) tax│ "+str(qtax2(),14,2))~│ │ │ shipping│ ì ~quote->freight~│ │ │ T O T A L│ ì ~str(qtotal(),15,2)~│ └──────────────────────────────────────────┴───────────────┴──────ì ───────────┘ ~if(!empty(quote->savings)," Y O U R S A V I N G S -> ì $"+STR(quote->SAVINGS)+IF(!EMPTY(qtotal()),str((1-(qtotal()-qtax1(ì )-qtax2())/(quote->savings+qtotal()-qtax1()-qtax2()))*100,6,2)+"%"ì ,"")," T H A N K Y O U F O R Y O U R B U S I N E S S !")~ ~Printcode("INIT")~~printcode("pitch10")~~printcode("lines6")~ Q U O T E +=================================================+ |~padc(upper(m_name),48)~ | +=================================================+ ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~ ~padc(M_phone,48)~ +------------[sold to]---------------+ +------------[ship to]---------------+ |~PAD(customer->name,35)~ | |~PAD(aShip2[1],35)~ | |~PAD(customer->company,35)~ | |~PAD(aShip2[2],35)~ | |~PAD(customer->address,35)~ | |~PAD(aShip2[3],35)~ | |~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~ | |~PAD(aShip2[4],35)~ | +--[customer id]----+--[telephone]---+ +--[ ]----+--[ ]----+ | ~padl(quote->cust_id,9,"0")~ |~customer->home_phone~ | | | | +-------------------+----------------+ +-----------------+------------------+ +[QUOTE #]--+[date]-----+[ ]+[sales rep]------------------------------+ | ~Quote->(recno())~ |~pad(dtoc(Quote->date),10)~ | |~quote->sales_rep~ ~sale_rep->name~ | +[ ]+[weight]---+[ship via]+-----+-----[terms]-----------------------+ | |~quote->weight~ |~quote->ship_via~|~Pad(qterms(),35)~| +[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+ |~quote->cust_po_no~ |~fob->fob_terms~ | +-----------------------+----------------------------------------------------+ +---------------------+----------------+----+---------------+----------------+ |item no./description |quantity |unit|price |extended | +---------------------+----------------+----+---------------+----------------+ ~inv->part_no~ ~quote2->order_qty~ ~inv->unit~ ~quote2->price~ ~str(quote2->order_qty*quote2->price,16,2)~ ~-~ ~trim(inv->manufact)~ ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ * * * continued on page ~str(page+1,4)~ * * * ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [QUOTE no.-> ~quote-> (recno())~] (continuation) +---------------------+----------------+----+---------------+----------------+ |item no./description |quantity |unit|price |extended | +---------------------+----------------+----+---------------+----------------+ +[ ì ]---------------------------------+[charges]------+---------------ì --+ | | taxable| ì ~quote->taxable~| | | non-taxable| ì ~quote->non_taxabl~| | | ì ~if(empty(quote->tax1_rate),space(12)+"|"+space(17),"("+str(quote-ì >tax1_rate,5,2)+"%) tax| "+str(qtax1(),14,2))~| | | ì ~if(empty(quote->tax2_rate),space(12)+"|"+space(17),"("+str(quote-ì >tax2_rate,5,2)+"%) tax| "+str(qtax2(),14,2))~| | | shipping| ì ~quote->freight~| | | T O T A L| ì ~str(qtotal(),15,2)~| +------------------------------------------+---------------+------ì -----------+ ~if(!empty(quote->savings)," Y O U R S A V I N G S -> ì $"+STR(quote->SAVINGS)+IF(!EMPTY(qtotal()),str((1-(qtotal()-qtax1(ì )-qtax2())/(quote->savings+qtotal()-qtax1()-qtax2()))*100,6,2)+"%"ì ,"")," T H A N K Y O U F O R Y O U R B U S I N E S S !")~~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ ╒═══════════════════════════════════╕ │ REQUEST FOR QUOTE │▒ ╘═══════════════════════════════════╛▒ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ┌────────────[issued by]─────────────┐ ┌────────────[important]─────────────┐ │~PAD(M_name,35)~ │ │Our Quote number must │ │~PAD(M_adr1,35)~ │ │appear on all correspondence. │ │~PAD(M_adr2,35)~ │ │ │ │~PAD(M_adr3,35)~ │ │ │ ├────[contact]──────┬──[telephone]───┤ ├──[quote no.]────┬──[issue date]────┤ │~po->contact~ │ ~PAD(M_phone,14)~ │ │ ~padl(ltrim(str(po->(RECNO()))),7,"0")~ │ ~pad(date(),10)~ │ └───────────────────┴────────────────┘ └─────────────────┴──────────────────┘ ┌─ [issued to] ─┐ │~pad(aSup1,35)~ │ ~aSup2~ ~aSup3~ │~pad(aSup4,35)~ │ └─ ─┘ ┌[weight]─────┬[required]─┬[f.o.b. ]───────────────────────────────────────┐ │~po->weight~│~pad(po->required,10)~ │~fob->fob_terms~ │ ├[TERMS ]────┼[EXP DATE ]┼[supply cd]┼[ship via]────────────────────────────┤ │ │ │~rfq->supply_cd~ │~po->ship_via~ │ └─────────────┴───────────┴───────────┴──────────────────────────────────────┘ ~Printcode("COMP")~Please quote the articles and/or services listed below. Include freight, taxes and other charges.~Printcode("NOCOMP")~ comments-> ~po->comments~ ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐ │item│item no./description│ qty │unit│ price │ extended │ └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘ ~po2->item~ ~if(empty(supply2->part_no),inv->part_no,supply2->part_no)~~po2->qty~ ~inv->unit~ ~-~ ~trim(inv->manufact)~ ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ ì [quote no.-> ~po-> (recno())~] (continuation) ┌────┬────────────────────┬─────────────┬────┬───────────────┬────ì ───────────┐ │item│item no./description│ qty │unit│ price │ ì extended │ └────┴────────────────────┴─────────────┴────┴───────────────┴────ì ───────────┘ taxable non-taxable ( %) tax ( %) tax shipping ┌───────[signature]──────────┬───[date]────┬[est. ì delivery]┬[total est. cost]┐ │ │ │ │ ì │ └────────────────────────────┴─────────────┴───────────────┴──────ì ───────────┘ ~Printcode("INIT")~ +===================================+ | REQUEST FOR QUOTE | +===================================+ +------------[issued by]-------------+ +------------[important]-------------+ |~PAD(M_name,35)~ | |Our Quote number must | |~PAD(M_adr1,35)~ | |appear on all correspondence. | |~PAD(M_adr2,35)~ | | | |~PAD(M_adr3,35)~ | | | +----[contact]------+--[telephone]---+ +--[quote no.]----+--[issue date]----+ |~po->contact~ | ~PAD(M_phone,14)~ | | ~padl(ltrim(str(po->(RECNO()))),7,"0")~ | ~pad(date(),10)~ | +-------------------+----------------+ +-----------------+------------------+ +- [issued to] -+ |~pad(aSup1,35)~ | ~aSup2~ ~aSup3~ |~pad(aSup4,35)~ | +- -+ +[weight]-----+[required]-+[f.o.b. ]---------------------------------------+ |~po->weight~|~pad(po->required,10)~ |~fob->fob_terms~ | +[TERMS ]----+[EXP DATE ]+[supply cd]+[ship via]----------------------------+ | | |~rfq->supply_cd~ |~po->ship_via~ | +-------------+-----------+-----------+--------------------------------------+ ~Printcode("COMP")~Please quote the articles and/or services listed below. Include freight, taxes and other charges.~Printcode("NOCOMP")~ comments-> ~po->comments~ +----+--------------------+-------------+----+---------------+---------------+ |item|item no./description| qty |unit| price | extended | +----+--------------------+-------------+----+---------------+---------------+ ~po2->item~ ~if(empty(supply2->part_no),inv->Part_no,supply2->part_no)~~po2->qty~ ~inv->unit~ ~-~ ~trim(inv->manufact)~ ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [quote no.-> ~po-> (recno())~] (continuation) +----+--------------------+-------------+----+---------------+---------------+ |item|item no./description| qty |unit| price | extended | +----+--------------------+-------------+----+---------------+---------------+ taxable non-taxable ( %) tax ( %) tax shipping +-------[signature]----------+---[date]----+[est. delivery]+[total est. cost]+ | | | | | +----------------------------+-------------+---------------+-----------------+ ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ P A C K I N G L I S T ╒═════════════════════════════════════════════════╕ │~padc(upper(m_name),48)~ │ ╘═════════════════════════════════════════════════╛ ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~ ~padc(M_phone,48)~ ┌────────────[sold to]───────────────┐ ┌────────────[ship to]───────────────┐ │~PAD(customer->name,35)~ │ │~PAD(aShip2[1],35)~ │ │~PAD(customer->company,35)~ │ │~PAD(aShip2[2],35)~ │ │~PAD(customer->address,35)~ │ │~PAD(aShip2[3],35)~ │ │~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~ │ │~PAD(aShip2[4],35)~ │ ├──[customer id]────┬──[telephone]───┤ ├──[ ]────┬──[ ]────┤ │ ~padl(pos->cust_id,9,"0")~ │~customer->home_phone~ │ │ │ │ └───────────────────┴────────────────┘ └─────────────────┴──────────────────┘ ┌[INVOICE]──┬[date]─────┬[trx type]┬[sales rep]──────────────────────────────┐ │ ~pos->(recno())~ │~pad(dtoc(pos->date),10)~ │~pos->trx_type~ │~pos->sales_rep~ ~sale_rep->name~ │ ├[ship date]┼[weight]───┼[ship via]┴─────┬─────[terms]───────────────────────┤ │~pad(dtoc(dFor),10)~ │~pos->weight~ │~pos->ship_via~│~Pad(posterms(),35)~│ ├[cust PO]──┴───────────┼[f.o.b.]────────┴───────────────────────────────────┤ │~pos->cust_po_no~ │~fob->fob_terms~ │ └───────────────────────┴────────────────────────────────────────────────────┘ ┌────┬─────────────────────┬──────────────┬──────────────┬────┬──────────────┐ │item│item no./description │ordered │shipped │unit│backorder │ └────┴─────────────────────┴──────────────┴──────────────┴────┴──────────────┘ ~pos_item->item~ ~inv->part_no~ ì ~pos_item->order_qty~~ship->qty_shipd~ ~inv->unit~ ì ~ship->back_order~ ~-~ ~trim(inv->manufact)~ ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ * * * continued on page ~str(page+1,4)~ * * * ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [invoice no.-> ~pos-> (recno())~] (continuation) ┌────┬─────────────────────┬──────────────┬──────────────┬────┬──────────────┐ │item│item no./description │ordered │shipped │unit│backorder │ └────┴─────────────────────┴──────────────┴──────────────┴────┴──────────────┘ Thank You For Your Business! ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ P A C K I N G L I S T +=================================================+ |~padc(upper(m_name),48)~ | +=================================================+ ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~ ~padc(M_phone,48)~ +------------[sold to]---------------+ +------------[ship to]---------------+ |~PAD(customer->name,35)~ | |~PAD(aShip2[1],35)~ | |~PAD(customer->company,35)~ | |~PAD(aShip2[2],35)~ | |~PAD(customer->address,35)~ | |~PAD(aShip2[3],35)~ | |~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~ | |~PAD(aShip2[4],35)~ | +--[customer id]----+--[telephone]---+ +--[ ]----+--[ ]----+ | ~padl(pos->cust_id,9,"0")~ |~customer->home_phone~ | | | | +-------------------+----------------+ +-----------------+------------------+ +[INVOICE]--+[date]-----+[trx type]+[sales rep]------------------------------+ | ~pos->(recno())~ |~pad(dtoc(pos->date),10)~ |~pos->trx_type~ |~pos->sales_rep~ ~sale_rep->name~ | +[ship date]+[weight]---+[ship via]+-----+-----[terms]-----------------------+ |~pad(dtoc(dFor),10)~ |~pos->weight~ |~pos->ship_via~|~Pad(posterms(),35)~| +[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+ |~pos->cust_po_no~ |~fob->fob_terms~ | +-----------------------+----------------------------------------------------+ +----+---------------------+--------------+--------------+----+--------------+ |item|item no./description |ordered |shipped |unit|backorder | +----+---------------------+--------------+--------------+----+--------------+ ~pos_item->item~ ~inv->part_no~ ì ~pos_item->order_qty~~ship->qty_shipd~ ~inv->unit~ ì ~ship->back_order~ ~-~ ~trim(inv->manufact)~ ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ * * * continued on page ~str(page+1,4)~ * * * ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [invoice no.-> ~pos-> (recno())~] (continuation) +----+---------------------+--------------+--------------+----+--------------+ |item|item no./description |ordered |shipped |unit|backorder | +----+---------------------+--------------+--------------+----+--------------+ Thank You For Your Business!~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ ╒═══════════════════════════════════╕ │ PURCHASE ORDER │▒ ╘═══════════════════════════════════╛▒ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ┌────────────[issued by]─────────────┐ ┌────────────[important]─────────────┐ │~PAD(M_name,35)~ │ │Our purchase order number must │ │~PAD(M_adr1,35)~ │ │appear on all invoices, cases, │ │~PAD(M_adr2,35)~ │ │packing lists and correspondence. │ │~PAD(M_adr3,35)~ │ │ │ ├────[contact]──────┬──[telephone]───┤ ├──[order no.]────┬──[issue date]────┤ │~po->contact~ │ ~PAD(M_phone,14)~ │ │ ~padl(ltrim(str(po->(RECNO()))),7,"0")~ │ ~pad(dtoc(po->issued),10)~ │ └───────────────────┴────────────────┘ ├[customer no.]───┼[cust. acct. no.]─┤ ┌─ [issued to] ─┐ │~supplier->cust_no~│~supplier->acct_no~│ │~pad(aSup1,35)~ │ └─────────────────┴──────────────────┘ ~pad(aSup2,35)~ ~aSup3~ │~pad(aSup4,35)~ │ └─ ─┘ ┌[weight]─────┬[required]─┬[f.o.b. ]───────────────────────────────────────┐ │~po->weight~│~pad(dtoc(po->required),10)~ │~fob->fob_terms~ │ ├[TERMS ]────┼[ ]┼[supply cd]┼[ship via]────────────────────────────┤ │~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~ │ │~po->supply_cd~ │~po->ship_via~ │ └─────────────┴───────────┴───────────┴──────────────────────────────────────┘ Please supply the articles and/or services listed below. comments-> ~po->comments~ ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐ │item│item no./description│ qty │unit│ price │ extended │ └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘ ~po2->item~ ~inv->part_no~~po2->qty~ ~inv->unit~ ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~ ~-~ ~trim(inv->manufact)~ ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ ~schedule()~ ì ┌───[sub-total]───┐ │ ì ~str(subtotal,15,2)~│ ì └─────────────────┘ ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [order no.-> ~po-> (recno())~] (continuation) ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐ │item│item no./description│ qty │unit│ price │ extended │ └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘ taxable ~po->taxable~ non-taxable ~po->non_taxabl~ ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax "+str(po->tax1,13,2))~ ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax "+str(po->tax2,13,2))~ shipping ~po->freight~ ┌───────[signature]──────────┬───[date]────┬───────────────┬[total est. cost]┐ │ │ │ │ ~po->total~│ └────────────────────────────┴─────────────┴───────────────┴─────────────────┘ ~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ I N V O I C E ╒═════════════════════════════════════════════════╕ │~padc(upper(m_name),48)~ │ ╘═════════════════════════════════════════════════╛ ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~ ~padc(M_phone,48)~ ┌────────────[sold to]───────────────┐ ┌────────────[ship to]───────────────┐ │~PAD(customer->name,35)~ │ │~PAD(aShip2[1],35)~ │ │~PAD(customer->company,35)~ │ │~PAD(aShip2[2],35)~ │ │~PAD(customer->address,35)~ │ │~PAD(aShip2[3],35)~ │ │~PAD(trim(customer->city)+", "+customer->state+" "+trim(customer->zip),35)~ │ │~PAD(aShip2[4],35)~ │ ├──[customer id]────┬──[telephone]───┤ ├──[ ]────┬──[ ]────┤ │ ~padl(pos->cust_id,9,"0")~ │~customer->home_phone~ │ │ │ │ └───────────────────┴────────────────┘ └─────────────────┴──────────────────┘ ┌[INVOICE]──┬[date]─────┬[trx type]┬[sales rep]──────────────────────────────┐ │ ~pos->(recno())~ │~pad(dtoc(pos->date),10)~ │~pos->trx_type~ │~pos->sales_rep~ ~sale_rep->name~ │ ├[ship date]┼[weight]───┼[ship via]┴─────┬─────[terms]───────────────────────┤ │~pad(dtoc(pos->ship_date),10)~ │~pos->weight~ │~pos->ship_via~│~Pad(posterms(),35)~│ ├[cust PO]──┴───────────┼[f.o.b.]────────┴───────────────────────────────────┤ │~pos->cust_po_no~ │~fob->fob_terms~ │ └───────────────────────┴────────────────────────────────────────────────────┘ ┌────┬─────────────────────┬──────────────┬────┬─────────────┬───────────────┐ │item│item no./description │quantity │unit│unit cost │extended │ └────┴─────────────────────┴──────────────┴────┴─────────────┴───────────────┘ ~pos_item->item~ ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~ ~-~ ~trim(inv->manufact)~ ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~ ~posSchedule(3)~ * * * continued on page ~str(page+1,4)~ * * * ~padc(upper(trim(M_NAME)),80)~ page ~ltrim(str(page,4))~ [invoice no.-> ~pos-> (recno())~] (continuation) ┌────┬─────────────────────┬──────────────┬────┬─────────────┬───────────────┐ │item│item no./description │quantity │unit│unit cost │extended │ └────┴─────────────────────┴──────────────┴────┴─────────────┴───────────────┘ ┌[payment]─────────────────────────────────┬[charges]──────┬──────ì ───────────┐ │~pad(aPaid[1],42)~│ taxable│ ~pos->taxable~│ │~pad(aPaid[2],42)~│ non-taxable│ ~pos->non_taxabl~│ │~pad(aPaid[3],42)~│ ì ~if(empty(pos->tax1_rate),space(12)+"│"+space(17),"("+str(pos->taxì 1_rate,5,2)+"%) tax│ "+str(tax1(),14,2))~│ │~pad(aPaid[4],42)~│ ì ~if(empty(pos->tax2_rate),space(12)+"│"+space(17),"("+str(pos->taxì 2_rate,5,2)+"%) tax│ "+str(tax2(),14,2))~│ │~pad(aPaid[5],42)~│ shipping│ ~pos->freight~│ │~pad(aPaid[6],42)~│ T O T A L│ ~str(postotal(),15,2)~│ ├[amount tendered]─┬[change due]───────────┼[PAYMENT DUE]──┼[B A ì L A N C E]──┤ │~str(amt_tender(),15,2)~ │~str(change(),11,2)~ ì │~pad(if(empty(balance()),"N/A",pos->net_due),10)~ │ ì ~str(balance(),15,2)~│ └──────────────────┴───────────────────────┴───────────────┴──────ì ───────────┘ ~if(empty(balance()),"","Please pay from this Invoice: No ì statement will be issued.")~ ~if(!empty(pos->savings)," Y O U R S A V I N G S -> ì $"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1ì ()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","ì ")," T H A N K Y O U F O R Y O U R O R D E R !")~~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ ╒═══════════════════════════════════╕ │ PURCHASE ORDER │▒ ╘═══════════════════════════════════╛▒ ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒ ┌────────────[issued by]─────────────┐ ┌────────────[important]─────────────┐ │~PAD(M_name,35)~ │ │Our purchase order number must │ │~PAD(M_adr1,35)~ │ │appear on all invoices, cases, │ │~PAD(M_adr2,35)~ │ │packing lists and correspondence. │ │~PAD(M_adr3,35)~ │ │ │ ├────[contact]──────┬──[telephone]───┤ ├──[order no.]────┬──[issue date]────┤ │~po->contact~ │ ~PAD(M_phone,14)~ │ │ ~padl(ltrim(str(po->(RECNO()))),7,"0")~ │ ~pad(dtoc(po->issued),10)~ │ └───────────────────┴────────────────┘ ├[customer no.]───┼[cust. acct. no.]─┤ ┌─ [issued to] ─┐ │~supplier->cust_no~│~supplier->acct_no~│ │~pad(aSup1,35)~ │ └─────────────────┴──────────────────┘ ~pad(aSup2,35)~ ~aSup3~ │~pad(aSup4,35)~ │ └─ ─┘ ┌[weight]─────┬[required]─┬[f.o.b. ]───────────────────────────────────────┐ │~po->weight~│~pad(dtoc(po->required),10)~ │~fob->fob_terms~ │ ├[TERMS ]────┼[ ]┼[supply cd]┼[ship via]────────────────────────────┤ │~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~ │ │~po->supply_cd~ │~po->ship_via~ │ └─────────────┴───────────┴───────────┴──────────────────────────────────────┘ Please supply the articles and/or services listed below. comments-> ~po->comments~ ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐ │item│item no./description│ qty │unit│ price │ extended │ └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘ ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~ +===================================+ | PURCHASE ORDER | +===================================+ +------------[issued by]-------------+ +------------[important]-------------+ |~PAD(M_name,35)~ | |Our purchase order number must | |~PAD(M_adr1,35)~ | |appear on all invoices, cases, | |~PAD(M_adr2,35)~ | |packing lists and correspondence. | |~PAD(M_adr3,35)~ | | | +----[contact]------+--[telephone]---+ +--[order no.]----+--[issue date]----+ |~po->contact~ | ~PAD(M_phone,14)~ | | ~padl(ltrim(str(po->(RECNO()))),7,"0")~ | ~pad(dtoc(po->issued),10)~ | +-------------------+----------------+ +[customer no.]---+[cust. acct. no.]-+ +- [issued to] -+ |~supplier->cust_no~|~supplier->acct_no~| |~pad(aSup1,35)~ | +-----------------+------------------+ ~pad(aSup2,35)~ ~aSup3~ |~pad(aSup4,35)~ | +- -+ +[weight]-----+[required]-+[f.o.b. ]---------------------------------------+ |~po->weight~|~pad(dtoc(po->required),10)~ |~fob->fob_terms~ | +[TERMS ]----+[ ]+[supply cd]+[ship via]----------------------------+ |~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~ | |~po->supply_cd~ |~po->ship_via~ | +-------------+-----------+-----------+--------------------------------------+ Please supply the articles and/or services listed below. comments-> ~po->comments~ +----+--------------------+-------------+----+---------------+---------------+ |item|item no./description| qty |unit| price | extended | +----+--------------------+-------------+----+---------------+---------------+